ررتّه الرحمن ار 


وا رو 0 2 


تعتبر لغة الفيجوال بيسك من للغات ذات الكفاءة وسهولة البرمجة 
حيث هي لغة المبتدئين ولغة المحترفين في نفس الوقت. 
أنا شخص لا أعد نفسى من محترفين هذه اللغة ولكنى من هواتها 
حيبت دات أنجدتب البها خاصة عائة الذرت نت و كما اسئفذت 
أفيد بعون الله »أقدم كتابي المتواضع هذا لكل من أراد الاستفادة 
في داخل هذا الكتاب تعليم مبسط لكيفية صناعة آلة حاسبة 
طريقة كتابة كود الحاسبة طريقة سهلة ومختلفة عن بعض 
الكتب الأخرى بالعكس حيث لا أقلل من تلك الكتب وأكن كل 
احترام لكاتبيها.... 
في الختام أقدم وأكن فائق احترامي وشكري للأستاذ هشام التاجوري 
حقيقة أستفدت منه كتير 

وکما قيل من علمني حرفا صرت له عبداً 
أخص بالشكر جميع القائمين بموقع كتب حيث يعتبر 
حقيقة من المواقع العربية المهمة التي تبحث عن التميز وإفادة 
كل من يبحث على طريق العلم. 


” يسمح بنشر الكتاب “ www.kutub.info‏ 


ا عل درک ا ا کر درل ر ت نة الر لن ك ارت ف 
يجب أن تكون لديك اللغة في جهازك قبل كل شيء › حيث تظهر الشاشة 
الافتتاحية للغة 


File 


ل 


Toals Windom Help 


-S HÊ $ BE < -#*- 8-j] , ا‎ 


> SEE EES 
| Toolbox: # x | Start Page | AF x 
Clipboard Ring 


General خد‎ > 
> nê RêSÛiirtes M¥ Profile 
1 Poker ب‎ 


114142008 
empl 115200 
cost 114292007 
window sAapplicationz 11F16f200T 


| 
چ 

1 [ New Project | Open Project 
E] Ser. Tool. ا‎ 


| Qukput: 


HH x 


Ready 


مايهمنا الآن هو مشروع جديد وذالك بالدخول على قائمة ملف ثم جديد ثم 
مشروع 


File —New — project— windows Application 


Project Types: Templates: 
1 AN visual Basic Projects 3 
J Setup and Deployment Projects اکا‎ 
I Other Projects Windows: Class Library Windows 


“J Yisual Studio Solutions Application control Library 


® @ 
و‎ E E 


Smart Device ASP, HET Web ASP.NET Web 
Application Application Seryice 


a prajert far creating an application with a Windows User inteffare 
Name: calzulato 


Location: أ‎ CiYisual Studio Projects = Browse; | 
Mey Solution arme: | calculator I create directory For Salûtiir 


Project will be created at Zi yisual Studio Projectsicalculatortcalculator, 


e | e | 


El= Edt Yew Projet Buld Debug Fûrmat Tools Window Help 


E RR @ 1 1-0 -BE-B ype > “BEER FH -. 


e+ | E #4‏ دع + 2 E‏ ن 
Toolbox # Xx | Forml.vb [Design]" | Foı Hx‏ 
Data. lj E 1 Forml System. Windows. Forms. For ¥‏ 
Components E A Fom1‏ 
Windows Forms >| >‏ 
| ھ Roa Font Microsoft Sans 5e‏ 
٤ ForeColor E cControltext‏ 
اھا کر 
FarmBarderStyle Sizable‏ 
Label ٤ RightToLeft No‏ 4 
BE Button Text Formi‏ 
ebi TextEox E Behavior‏ 
Bj marmenu ٍ Aloworap False‏ 
FF ChetlBox CantextMenu (none)‏ 
Ba Enabled True‏ 
E 1 ImeMode NoControl‏ 
I GroupBox 1 E FORGO SEE‏ 
٤ (DynamicProperti‏ 
BÛ DataGrid (DataBindings}‏ 
Listê E bz‏ 
TT Fil‏ أ El CheckedListBox‏ 
BESRE Drawarid Te‏ 
Listvlew | @ ardsze 8,8‏ 2 
Treen Locked False‏ > 
J] TabControl 1 SnapToGrid True‏ 
TH DateTimeicker TEE‏ 
TTT TTT 0 Causesvaldation True‏ 
FE Monthealendar ETE‏ 
Sl HScrolBar AutaSeale Ime‏ 
j UStrolBar AutoSeroll False‏ 
ك .0.0 E me | BAkosealMaran.‏ 


+e Splitter E 


TE DomainllbDown أ‎ 
1 wv 


. Ê Toolbox] ` Ef Properties | @ Dynamic Help | 


بعد ذلك قم بوضع مربع نص 1۵×00٥×‏ وعشرون زر أمر 0۸ BU‏ 
وک تن ا ررر ف را هی قا انم حت ن حاف اا 
مأء توجد في نهاية القائمة ثم بعد ذلك أكتب داخلها 

0, 30 وهو حجم الأزرار 


1 2| 
2:) Ai FÎ F& 
HH NE E 
ImageList {none} ج‎ 
RightToLeft a 
Text 
Textêlign MiddleZenter 
AllomDrap False 
ContextMenü {none} 
DialogResulE Planie 
Enabled Tie 
Tabstop True 
visible Thue 
Hl {DynamicProperties;, 
4 (DataBindings; 
Tag 
Locked False 
Modifiers Friend 


CausesYalidation True 


Anchor Top, Left 


Dork Mone 
3 Location 


بعد ذلك قم بصف الأزرار أسفل بعض كل صف يمتل أربعة أزرار 

ثم قم بتحديد كل زر على حده وتغير أسمه وذلك عن طريق خاصية النص 

)×ه ا قم بتسمية الأزرار ابتداء من رقم واحد ألي تسعة ومؤثرات العمليات 
الجمع والطرح والضرب والقسمة وليساوي وزر الجذر التربيعي 

وزر حساب مضروب العدد وزر حساب الاس وزر الفاصلة العشرية وزر 


السح. 


IF 2 : 
1 Button20 3545tem. windows Forms ,l > 


El #EJ a 


FlatStyle Standard | 
|Z Font Microsoft Sar 

Forecalor E controlTe 

Image inane] 

ImageAûlign MiddleCenter 

Imagelndex 1 {nonê} 

ImageList none; 

RightToLeft No 

Text ۳ 

TextAlign MiddleZenkter 
| BERET 

ûllom Drop False 

ContextMenu (nane; 

DialagResult Hone 

Enabled True 

TabIndex 20 

TabStop TUE 

isle TUE 


ETON SHORE 


قم بتحديد وتغير أسم مربع النص عن طريق خاصية الاسم 
Name‏ وړم بتغیره آلی ۲1 


Form1.wb [Design]™ | Firmi.vh# | 


Formi.yb [Design]* | Farmliyb™ | qpP*# ا‎ Properties 


T1 system Wwindows, Forms, TextEoit_w | 


4 
Hide5election True | 
ImeMadë Motontrol 
Ma»xLength EFE 
Multiline False 
Passwordchar 
ReadOnly False 
TabIndex 2 
Tabstop True 
visible True 
wWwordWwrap TrUE 
3 EEE 
ات‎ RES 
Tag 
Locked False 
Modifiers Friend 
ک‎ » 2 » w ۰ 0 ® 
ثم قم تعدیل حجم الفورم او النموذج وذلك من الخصائص‎ 
Location,maxmumsize,minmumsize,size 
. 5 0 » 
وصع هي داخلهم القيمة‎ 
304 , 208 
Fûormi1.yb [Design] | Foil ob | A} x [Properties ا‎ 3 X٠ 


Form1 System. Windows. Forms, For 
4 8| 


Formil 


(E DorckPadding | 

Hl Lotation | 

3 MaximurmmSize 

E Mirimumsize 

| 5e 
StartPositian 

| Window State Mlormal 
ArceptEutton nane} 
LancelButton nane} 
KeyPreviele False 
Language {Default} 
Localizable False 


LûntrolBox True 


HelpButtori False | 


اللآن بعد الانتهاء من عملية التصميم جاء دور عملية البرمجة كتابة الكود 
البرمجي. [ 

دال ل د د ا ا ا ارد واا 
بالنقر عليه مرتين بزر الفارة الأيسر ثم نقوم بحجز متغيرين عامين 
كما موضح بالصورة التالية 


Ford Yb [Design] Forml.eh | AF X* 


Form ۰ HT. (Declarations) | 


= 


ک 
Public Class Formil‏ 


Inherits System, Windows, Forms. Forni 
Dim 2l, 22 A3 Single 
Dim op da Btring 


ثم ننقر على زر رقم واحد ونكتب داخله الكود التالي 


Private Sub Buttonl Llick lI{EFVal gender As Pyastem, Object, Byva 
Tl. Text = Tl. Text ¥ HIT 
End Sub 


يتم كتابة هذا الكود في أزرار الأرقام من واحد إلى تسعة 
وكذلك زر الفاصلة العشرية فقط 
ملاحظة : مع تغير الرمز "1" برمز الذي مسمى به الزر 


بعد ذلك نكتب في زر الجمع" + "الكود التالي 


Private Sub Buttonê Click{ByVal gender A2 Pyastem.hject, B 
21 = ValiTl1. Text] 
TIi.LleAaF I} 
op} ت‎ Lr 

End Sub 


يتم كتابته في أزرار العمليات ماعدا زر اليساوي" =" وزر الفاصلة العشرية 
"." طعا مع تغير رمز العملية 


بعد ذلك نكتب في زر اليساوي" = ""الكود التالي 


Forms [Design] Formlvh | AEX 


j0 Bur | Fok : 


5 Private duh Button Click L(ByVal gzender 4s System.Object, ByVal e As Pyaten,l 
zû = VALITI. TEXT) 


Ti. Clear] 
LEBE I E RE, 
Ti, Text = [2l F5) 
End If 
EEO ATER 
Ti,Text = [3] - 52| 
End If 
If ûpi = "Thiel 
Ti, Text = [3] 1 52| 
End If 
If op = "/" Ther 
Ti.Text = sl 7 B2) 
End If 


والآن جاء دور أزرار الجذر والمضروب والأس 
نكتب في زر الجذرالتربيعي 
"Sqr "‏ الكود التالي. 


Private Sub Buttonld LIick{EByVal sende 
Tim a2q{E As Douple 
aq = Tli.Têxt * [1 # &} 
Tl1.Text = StrlaqE} 

Lind Sub 


ثم نكتب في زر المضروب 
AN"‏ الكود التالي. 


Private Sub Buttonél Click [ByVal sender A3 Pyste. 0 
Dim fact, i A3 Integer 
fa = 1 
For i= 1 To TI. Text 
Tear Tag 
Next 
TI:TeExt = SLCE[EaE) 
__ End Sub 


ثم نكتب في زر الأس 
MW A‏ الكود التالي . 


Private Subh Buttondl Click(BVal sender A3 System. hject, Bra. 
Diri aum As [Integer 
au = Û 
au: = Su + [Ti Text. 1T Tiir Text) 
TI. Text = Str tau) 
End Sub 


ج" الكود اتال [ 


Private Pub Buttonls LlIick(ByVal sender A3 Pyatem,hject 
Ti.Llear || 
T1,Focus |) 


الآن بعد الانتهاء من كتابة جميع الأكواد قم بتنفيذ وذلك بالضغط على زر 


F5 
في لوحة المفاتيح أو بالضغط على زر التنفيذ في شريط الأدوات القياسية‎ 


#4 calculator - Microsoft Visual Basic .HET [desien] - Form1.yb [Desien] 


File Edit ew Projett Build pLebug Data Iools Winda Help 


HME HÛ $ BO »-c- 8-E |» Dekug 


ا" 
ml 8 2 54 4 mî FE‏ کے د ا ا 9 
ag E Mh: FP i i E‏ | 1 1 
E o FOF E MN LEN | T FF HEL FE Start) a E |‏ 


الآن ستقوم ببناء الآلة وذلك بالدخول علي خصائص التطبيق من قائمة 


3 WindowsApplication2 - Microsoft Visual Basic NEN [design] - Form1.yb [Desien] 


Project: | Build Debug Data Format Tools Window Help 


< H*# Add Windows Eatin; 1 Debug | Hi 
HÊ ê Add Inherited Form... 8 ٍ ا‎ B+ ê: 0 8 Hh. 
o 1 Add User Control... 
Data Add Inherited Control... 0 
omponents Add Cormiponent, 
Windows Forms Î Add Module... 
k EE Add CaS... 
ااا‎ 
A a Add New en. Ctrl+ShiftHA 


Add Existing Kem, Shift+Alt+ê 


Exclude Fron Project 


| Shor All Files 


Add Reference... 
Add Web Reference, 


sek a5 StartUp Project 


| Windomsdpplicatianê PropertiES,.. 


File Edit: Vien 


3| Button 

Eb TextBox 
ج‎ Maine 
¥ CheckBox 
f RadioButton 
[| GroupBox 
laê] PictureBo:: 
۳ Panel 

BÛ Datagrid 
EA ListBox 
ChetkedListBox 


ثم قم بتحديد بناء من القائمة الموجودة في يسار الصفحة كما موضح 
بالصورة 


WindowsA pplication # Property Pages 3 


iT: | 


سم 
|ëJ Common Properties E Application ion:‏ 


aeneka| | {Default Icar} 
Imports 
Harare Bab Cêrmpiler Defaults ڪڪ ڪڪ‎ 
Designer Defaults : 2 
Lonfiguration Properties EE ت‎ ٌ 
Option Strict: off 


ipkian Carmpate: [Binary چ‎ 1 
Supported Runtimês : 3 


Ey default, app config supports running on. HET Framework 41.1 Change, 0 


Cangel 1 Apply Help 1 


بتغير الأيقونة أذا أردت ثم اضغط على تطبيق وموافق 
بعد ذلك أدخل على المستندات ستجد مجلد 


wWisual Studia Projects‏ اا 


ثم ستجد مجلدات المشاريع الأخرى أذا كان لديك 


î Visual Studio Projects 


Fils Edit Vie Favorites Tools Help 


O sx ٍ @ > Ê a Searth ly Folders EH 1 ۳ xX )غ1‎ 4 EZ 8 
Address Ig Divisual Studio Projects 
9 
j Fename this Folder 
3 Mowe this Folder: 
1 EE Windows pplicatior1 Windows Applicatioriê 
8 Lapy Bis Folder 


€} Publish this folder ta the 
êb : : 

Ei Share this fFoldêr 

J) E-mail this Folder's Files 

* Delete this Falder 


File and Folder Tasks 


أيضا ستجد مجموعة ملفات و مجلد باسم 


lë calculator 


File. Edt View Favorles Tools Help 


OQ ۳ 3 0 م ر‎ E Folders ES 1# 2 xX 4) 8 2 2 


Address Ëğ O visual Studio Projectsfcalculator 


| Fil and Foldêr Tasks 8 ا‎ bin ا‎ obj 


3 Makara newt Folder 


Publish this Folder to the: calculator rzalculatart, calcilator ,vbproj 
Heh MictosaFE Ysual Studia Solutio r: R.8 Yisual Basic NET Project isal SEudin Fro je 
E Share this folder : 1K 8 2K j 2E 
) 


AssemblyInfa, yb 
Yisual Basic SoUFcE 
ZEB 


3 Form 
RESH File 
141 EB 


Fotmil yb 
Yisual Basie Sourçe 


Other Plates ا‎ dÊ KB 


Eo 


File: Edt Yitw: Favorites Tools Help 
O sx @ FP ٠ se fy Folders: E 5 2 € )غ1‎ 4 i lÊ 


- 
Address I) Diwisual Studio Projectstcalculatorlobj 


File and Falder Tasks ھا‎ Debug 


E Make a qew Folder 

Publish. this Folder Ea the:‏ م 
Web‏ 

E Share this Folder 


lë Debus 


File Edt View Favorites Tools Help 


@Q sex r a 8 ر‎ [i Folders E 5 5K غا‎ 4 E E 
Adress aD: isual Studi PrajectsiwindowsApplication2\obj\Debug 
TempPE mE calculator 


Filë and Folder Tasks 3 ا‎ terp 
WindowsApplication2, Form F.,, 


1 Make a new fFalder 
RESOURZES File 


# Fubish this Folder to the: GG windowsApplicatian2a 
fel | 2 1 FDE File 
: 15 KE 


lblb 


1) 


Eî share thie Folder 


وأنشاء الله في دروس أخرى... 
يسمح بنشر الكتاب 


